home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 12 / Cream of the Crop 12 (Part II) / Cream of the Crop 12 (Part II).iso / OS2 / BASICWNT.ZIP / KEYIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1996-02-11  |  798 b   |  25 lines
  1. 0 rem *
  2. 1 rem *
  3. 2 rem *__KEYIN_TEST_FOR_NITROUSBASIC_ 
  4. 3 rem *
  5. 4 rem *
  6. 5 IN$ ="" 
  7. 7 MAXOUT =30 :CURRENT =0 
  8. 10 cls 
  9. 15 print "Start entering data and watch the word-wrap:" 
  10. 16 print "|" ;string$ (MAXOUT -2 ,asc ("-" ));"|" 
  11. 20 CH$ =inkey$ :if CH$ ="" then goto 20 
  12. 30 if CH$ =chr$ (13 )then goto 5000 
  13. 40 if CH$ =chr$ (8 )and CURRENT =0 then goto 20 
  14. 50 if CH$ =chr$ (8 )then CURRENT =CURRENT -1 :gosub 6000 :goto 20 
  15. 60 print CH$ ;:CURRENT =CURRENT +1 
  16. 65 IN$ =IN$ +CH$ 
  17. 70 if CH$ =chr$ (32 )and CURRENT >MAXOUT then CURRENT =0 :print :goto 20 
  18. 100 goto 20 
  19. 5000 print :print "The string is: '" ;IN$ ;"'" 
  20. 5010 end 
  21. 6000 rem __PROCESS_BACKSPACE__ 
  22. 6010 print chr$ (8 );" " ;chr$ (8 );
  23. 6020 if len (IN$ )=1 then IN$ ="" :return 
  24. 6030 IN$ =left$ (IN$ ,len (IN$ )-1 ):return 
  25.